home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / toolkit / vbof_v11 / demoemsg.frm < prev    next >
Text File  |  1996-02-13  |  4KB  |  172 lines
  1. VERSION 4.00
  2. Begin VB.Form EventMessages 
  3.    Caption         =   "Event Messages"
  4.    ClientHeight    =   2235
  5.    ClientLeft      =   1200
  6.    ClientTop       =   3750
  7.    ClientWidth     =   8385
  8.    Height          =   2640
  9.    Left            =   1140
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2235
  12.    ScaleWidth      =   8385
  13.    Top             =   3405
  14.    Width           =   8505
  15.    Begin VB.ListBox lbMessages 
  16.       Height          =   1620
  17.       Left            =   120
  18.       TabIndex        =   1
  19.       Top             =   120
  20.       Width           =   8175
  21.    End
  22.    Begin VB.CommandButton pbOK 
  23.       Caption         =   "OK"
  24.       Default         =   -1  'True
  25.       Height          =   375
  26.       Left            =   7080
  27.       TabIndex        =   0
  28.       Top             =   1800
  29.       Width           =   1215
  30.    End
  31. End
  32. Attribute VB_Name = "EventMessages"
  33. Attribute VB_Creatable = False
  34. Attribute VB_Exposed = False
  35. Option Explicit
  36.  
  37. Public ObjectManager As VBOFObjectManager
  38.  
  39. Private pvtCustomerNumber As Long
  40.  
  41. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  42.  
  43.     ObjectManager.Form_QueryUnload _
  44.         Me
  45.  
  46. #If NoEventMgr = False Then
  47.     ObjectManager. _
  48.         UnRegisterForAllEvents _
  49.         RegisterObject:=Me
  50. #End If
  51.  
  52. End Sub
  53.  
  54.  
  55. Private Sub EvaluateAddress(Optional Object As Variant)
  56.  
  57.     On Local Error Resume Next
  58.  
  59.     If InStr(UCase$(Object.Line1), "SUITE") = 0 _
  60.     And InStr(UCase$(Object.Line2), "SUITE") = 0 _
  61.     And InStr(UCase$(Object.Line3), "SUITE") = 0 _
  62.     Then
  63.         lbMessages.AddItem "Is there a Suite at the address?", 0
  64.         Me.Show
  65.     End If
  66.  
  67. End Sub
  68.  
  69. Private Sub EvaluatePerson(Optional Object As Variant)
  70.  
  71.     On Local Error Resume Next
  72.  
  73.     If Object.Age < 20 Then
  74.         lbMessages.AddItem "Discuss Customer's Auto Insurance", 0
  75.         Me.Show
  76.     ElseIf Object.Age < 30 Then
  77.         lbMessages.AddItem "Discuss Customer's Retirement", 0
  78.         Me.Show
  79.     Else
  80.         lbMessages.AddItem "Discuss Customer's Life Insurance", 0
  81.         Me.Show
  82.     End If
  83.  
  84. End Sub
  85.  
  86.  
  87.  
  88. Private Sub EvaluatePhone(Optional Object As Variant)
  89.  
  90.     On Local Error Resume Next
  91.  
  92.     If Len(Object.PhoneNumber) <= 0 Then
  93.         Exit Sub
  94.     ElseIf Len(Object.PhoneNumber) < 7 Then
  95.         lbMessages.AddItem "Huh?  Are you on the right field?  Hello?  Try entering a phone number next time!", 0
  96.         lbMessages.ListIndex = 0
  97.         Me.Show
  98.     ElseIf Len(Object.PhoneNumber) < 8 Then
  99.         lbMessages.AddItem "Is there an Area Code? (It appears all you gathered was the main phone number)", 0
  100.         lbMessages.ListIndex = 0
  101.         Me.Show
  102.     ElseIf Len(Object.PhoneNumber) > 10 Then
  103.         lbMessages.AddItem "Is this a phone number or the distance to Alpha Sentauri? What kind of phone number is this?", 0
  104.         lbMessages.ListIndex = 0
  105.         Me.Show
  106.     End If
  107.  
  108. End Sub
  109.  
  110. Private Sub Form_Load()
  111.     
  112.     Me.Hide
  113.     pvtCustomerNumber = -1
  114.     
  115. #If NoEventMgr = False Then
  116.     ObjectManager.RegisterForObjectEvent _
  117.         TriggerObjectType:="Person", _
  118.         TriggerEvent:="Changed", _
  119.         RegisterObject:=Me
  120.     
  121.     ObjectManager.RegisterForObjectEvent _
  122.         TriggerObjectType:="Address", _
  123.         TriggerEvent:="Changed", _
  124.         RegisterObject:=Me
  125.     
  126.     ObjectManager.RegisterForObjectEvent _
  127.         TriggerObjectType:="Phone", _
  128.         TriggerEvent:="Changed", _
  129.         RegisterObject:=Me
  130. #End If
  131.  
  132. End Sub
  133.  
  134. Public Sub ObjectEventCallBack(Optional Event As Variant, Optional Object As Variant)
  135.  
  136.     Dim tempObjectType As String
  137.  
  138.     On Local Error Resume Next
  139.  
  140.     tempObjectType = TypeName(Object)
  141.     
  142.     If tempObjectType = "Person" Then
  143.         If pvtCustomerNumber <> Object.CustomerNumber Then
  144.             lbMessages.Clear
  145.             pvtCustomerNumber = Object.CustomerNumber
  146.         End If
  147.     End If
  148.  
  149.     If tempObjectType = "Person" Then
  150.         EvaluatePerson _
  151.             Object:=Object
  152.     End If
  153.  
  154.     If tempObjectType = "Address" Then
  155.         EvaluateAddress _
  156.             Object:=Object
  157.     End If
  158.  
  159.     If tempObjectType = "Phone" Then
  160.         EvaluatePhone _
  161.             Object:=Object
  162.     End If
  163.  
  164. End Sub
  165.  
  166.  
  167. Private Sub pbOK_Click()
  168.     Me.Hide
  169. End Sub
  170.  
  171.  
  172.